home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 96 / 096.d81 / cryptic 96 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  166 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 7 dimw$(300)
  3. 10 poke53281,0:poke53280,0:print"[147]"
  4. 12 sys57812"input any ce00",8,0:poke780,0:poke781,0:poke782,206:sys65493
  5. 14 gosub60000
  6. 16 sys52736,"cryptdata 96",dv
  7. 18 h=peek(252)*256+peek(251)
  8. 19 goto90
  9. 20 open4,4,7:close4
  10. 22 fl=0:poke214,20:print"[159]"
  11. 24 ifst=-128thenprintc$q$:fl=1:goto28
  12. 26 printc$u$:poke198,0
  13. 28 geta$:ifa$=""then28
  14. 29 return
  15. 30 poke214,23:print
  16. 32 print"   [193]ny key [155]- more    [210][197][212][213][210][206] [155]- menu[159][145]":poke198,0
  17. 34 geta$:ifa$=""then34
  18. 36 fg=0:ifa$=ch$thenfg=1
  19. 38 return
  20. 50 fori=130to150
  21. 52 ifw$(i)="*"thenx=i+1:i=150
  22. 54 next
  23. 56 return
  24. 90 v=53248
  25. 91 fori=832to876:pokei,255:next
  26. 92 fori=0to4:poke2040+i,13:pokev+39+i,6:next
  27. 93 pokev+16,0:pokev+29,31:pokev+27,31
  28. 94 fori=0to3:pokev+2*i,70+i*48:pokev+1+2*i,70:next:pokev+8,240:pokev+9,70
  29. 100 print"[147]"
  30. 101 ch$=chr$(13):bk$="[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
  31. 102 fori=0to4:readb$(i):next
  32. 103 data"[159] [195] [210] [217] [208] [212] [201] [195]   [195] [207] [210] [206] [197] [210] "
  33. 104 data"  1. [208]rint [195]ryptic           "
  34. 105 data"  2. [208]rint/[214]iew [211]olution     "
  35. 106 data"  3. [208]rint/[214]iew [201]nstructions "
  36. 107 data"  4. [200]ead [194]ack to [204][207][193][196][211][212][193][210]   "
  37. 108 p$="        [208]ress a number       "
  38. 109 r$="    ([208])rinter or ([211])creen    "
  39. 110 e$="                             "
  40. 111 q$=" [208]rinter's off!  [208]ress a key "
  41. 112 u$=" [211]et top of form - press key ":v$="  [208]ress a key to print clues "
  42. 113 tp$="[191][191][191][191][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146][191][191][191][191]"
  43. 114 md$="[191][191][191][191][221][159]                             [221][146][191][191][191][191]"
  44. 115 bt$="[191][191][191][191][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146][191][191][191][191]"
  45. 116 c$=""
  46. 117 pp$="                                            "
  47. 118 f$="     ":g$="!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--!"
  48. 119 gosub50
  49. 120 fori=1to4:d$(i)=c$+e$+ch$+c$+b$(i)+ch$+c$+e$:next
  50. 121 print""bk$:printtp$
  51. 122 fori=0to14:printmd$:next
  52. 124 printbt$:printbk$
  53. 126 printtp$:fori=0to2:printmd$:next:printbt$:printbk$"[145][145][145][145][159]":printc$p$
  54. 130 poke214,2:print:printc$b$(0):print""
  55. 132 pokev+21,31
  56. 134 fori=1to5:printc$b$(i):print"":next
  57. 158 poke198,0
  58. 160 geta$:ifa$<"1"ora$>"4"then160
  59. 162 k=val(a$)
  60. 164 poke214,k*3+1:print:print""d$(k)
  61. 166 onkgoto200,500,500,900
  62. 200 gosub20:ifflthen120
  63. 210 open4,4,7
  64. 215 fori=0to4:print#4:next
  65. 220 print#4,"                 [212][200][197][210][197]'[211] [199][207][212][212][193] [194][197] [193] [195][193][212][195][200]!
  66. 230 [152]4
  67. 240 [152]4,f$g$
  68. 241 [152]4,f$"! 1!  ! 2!  ! 3!  ! 4!  ! 5!  ! 6!  ! 7!  ! 8!"
  69. 242 [152]4,f$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  70. 243 [152]4,f$g$
  71. 244 [152]4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
  72. 245 [152]4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
  73. 246 [152]4,f$g$
  74. 247 [152]4,f$"! 9!  !  !  !  !  !  !##!10!  !  !  !  !  !  !"
  75. 248 [152]4,f$"!  !  !  !  !  !  !  !##!  !  !  !  !  !  !  !"
  76. 249 [152]4,f$g$
  77. 250 [152]4,f$"!  !##!  !##!  !##!11!  !  !##!  !##!  !##!  !"
  78. 251 [152]4,f$"!  !##!  !##!  !##!  !  !  !##!  !##!  !##!  !"
  79. 252 [152]4,f$g$
  80. 253 [152]4,f$"!12!  !  !  !  !##!  !##!13!  !  !  !  !  !  !"
  81. 254 [152]4,f$"!  !  !  !  !  !##!  !##!  !  !  !  !  !  !  !"
  82. 255 [152]4,f$g$
  83. 256 [152]4,f$"!  !##!  !#(NULL)!14!15!  !16!  !##!  !##!  !##!  !"
  84. 257 [152]4,f$"!  !##!  !##!  !  !  !  !  !##!  !##!  !##!  !"
  85. 258 [152]4,f$g$
  86. 259 [152]4,f$"!  !##!  !##!##!  !##!  !##!17!##!##!##!##!##!"
  87. 260 [152]4,f$"!  !##!  !##!##!  !##!  !##!  !##!##!##!##!##!"
  88. 261 [152]4,f$g$
  89. 262 [152]4,f$"!18!  !  !  !  !  !  !  !  !  !  !  !19!  !20!"
  90. 263 [152]4,f$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  91. 264 [152]4,f$g$
  92. 265 [152]4,f$"!##!##!##!##!##!  !##!  !##!  !##!##!  !##!  !"
  93. 266 [152]4,f$"!##!##!##!##!##!  !##!  !##!  !##!##!  !##!  !"
  94. 267 [152]4,f$g$
  95. 268 [152]4,f$"!21!##!22!##!23!##!24!  !25!  !26!##!  !##!  !"
  96. 269 [152]4,f$"!  !##!  !##!  !##!  !  !  !  !  !##!  !##!  !"
  97. 270 [152]4,f$g$
  98. 271 [152]4,f$"!27!  !  !  !  !  !  !##!  !##!28!  !  !  !  !"
  99. 272 [152]4,f$"!  !  !  !  !  !  !  !##!  !##!  !  !  !  !  !"
  100. 273 [152]4,f$g$
  101. 274 [152]4,f$"!  !##!  !##!  !##!29!  !  !##!  !##!  !##!  !"
  102. 275 [152]4,f$"!  !##!  !##!  !##!  !  !  !##!  !##!  !##!  !"
  103. 276 [152]4,f$g$
  104. 277 [152]4,f$"!30!  !  !  !  !  !  !##!31!  !  !  !  !  !  !"
  105. 278 [152]4,f$"!  !  !  !  !  !  !  !##!  !  !  !  !  !  !  !"
  106. 279 [152]4,f$g$
  107. 280 [152]4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
  108. 281 [152]4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
  109. 282 [152]4,f$g$
  110. 283 [152]4,f$"!32!  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  111. 284 [152]4,f$"!  !  !  !  !  !  !  !  !  !  !  !  !  !  !  !"
  112. 285 [152]4,f$g$
  113. 310 [129]i[178]0[164]16:[152]4:[130]
  114. 312 [151]214,20:[153]:[153]c$v$:[151]198,0
  115. 313 [161]a$:[139]a$[178]""[167]313
  116. 315 z[178](h[171]x)[173]2[171]1
  117. 320 [129]i[178]x[164]x[170]z
  118. 322 [152]4,w$(i);
  119. 324 [152]4,[200](pp$,40[171][195](w$(i)))w$(i[170]33)
  120. 326 [130]
  121. 332 [152]4:[160]4
  122. 334 [137]120
  123. 500 [139]k[178]3[167]d1[178]1:d2[178]99:d3[178]49:d4[178]49
  124. 501 [139]k[178]2[167]d1[178]100:d2[178]x[171]1:d4[178](d2[171]99)[173]2:d3[178]99[170]d4
  125. 502 [151]214,20:[153]"open":[153]c$r$:[151]198,0
  126. 503 [161]k$:[139]k$[178]""[167]503
  127. 504 [139]k$[178]"p"[167]550
  128. 506 [139]k$[178]"s"[167]510
  129. 508 [137]120
  130. 510 [151]v[170]21,0:[153]"loadopen":[129]i[178]d1[164]d2
  131. 512 [139]w$(i)[179][177]"\"[167]520
  132. 514 [141]30:[139]fg[167]i[178]d2:[130]:[153]"load":[137]120
  133. 516 [153]"load":i[178]i[170]1
  134. 520 [139]w$(i)[179][177]"*"[167][153]" "w$(i)
  135. 524 [130]
  136. 526 [141]30:[139]fg[167]i[178]d2:[153]"load":[137]120
  137. 528 [137]510
  138. 550 [141]20:[139]fl[167]120
  139. 552 [159]4,4,7:[129]i[178]0[164]2:[152]4:[130]
  140. 554 [129]i[178]d1[164]d3:l[178][195](w$(i))
  141. 555 [139]w$(i)[178]"\"[167][152]4," ";:[137]557
  142. 556 [152]4," "w$(i);
  143. 557 [139]w$(i[170]d4)[178]"\"[167][152]4," ":[137]560
  144. 558 [152]4,[200](pp$,40[171]l)w$(i[170]d4)
  145. 560 [130]
  146. 562 [129]i[178]0[164]63[171]d4[170](k[178]3):[152]4:[130]:[160]4
  147. 564 [137]120
  148. 900 [129]i[178]0[164]1000:[130]:[151]v[170]21,0
  149. 905 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  150. 910 [139]er[179][177]63[167][153]"load":[128]
  151. 920 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  152. 930 [153]"run"
  153. 940 [151]631,13:[151]632,13:[151]198,2:[128]
  154. 10000 [159]15,8,15,"s0:cryptic 96":[160]15:[148]"cryptic 96",8:[128]
  155. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  156. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  157. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  158. 60030 z$(0)[178]"len (NULL) (NULL) (NULL) (NULL) right$ len   len (NULL) (NULL) (NULL) val (NULL)  #96":z$(1)[178]"by ascender (NULL)ucker
  159. 60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  160. 60050 z$(3)="[212]his program is the copyrighted work
  161. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  162. 60070 z$(5)[178]"shareware or in the public domain."
  163. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  164. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  165. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  166.